home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / BALLOON.LSP < prev    next >
Lisp/Scheme  |  1995-01-20  |  696b  |  26 lines
  1. ;PLACES BALLOONS AND LEADERS WITH ARROWS
  2. ;Bob Zelna
  3. (DEFUN C:BALLOON()
  4. (SETQ RAD (* (getvar "dimscale") 0.15625))
  5. (SETQ TS (getvar "textsize"))
  6. (prompt "\nMake SURE Text Size set w/USER. Balloon dia. set .3 & DIMSCALE")
  7. (command)
  8. (setvar "regenmode" 0)
  9. (setq X 1)
  10. (while X
  11.         (SETQ X (GETPOINT "\n1st POINT: ")
  12.               Y (GETPOINT "\nBALLOON CENTER: ")
  13.             TXT (GETSTRING "\nTEXT: ")
  14.             DIS (DISTANCE X Y)
  15.             ANG (ANGLE X Y)
  16.              YY (POLAR X ANG (- DIS RAD)))
  17.   (COMMAND "DIM" "LEADER" X YY)
  18.   (COMMAND)
  19. (COMMAND "exit")
  20.   (COMMAND "CIRCLE" Y RAD)
  21.   (COMMAND "TEXT" "Middle" Y TS 0 TXT)
  22.   (COMMAND)
  23. )
  24. (setvar "regenmode" 1)
  25. )
  26.